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FORTRAN SOURCE CONVERSION PROGRAM 


DECUS Program Library Write-up 


DECUS No. 8-170 


The PD P-8 FORTRAN Source Conversion Program is loaded with the Binary Loader. Starting 
addresses for the program are: 


202g 

203 8 


with low speed reader and punch I/O. 
with high speed reader and low speed punch, 
with high speed reader and high speed punch. 


The previous FORTRAN Compiler (DEC-08-AFC1) did not require a space or tabulation 
when beginning a line which was not numbered or did not contain a "C" signifying a 
comment line. New FORTRAN (DEC-08-AFC1-PB) recognizes only lines beginning with 
either a space, a statement number, or a space/tab. This program will allow the user to 
convert FORTRAN source programs written for the old compiler to the new format which 
is required to run the programs. 
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/PROGRAM TO CUMVERT PuP-8 FQRTRAN PROGRAMS FROM OlD 
/POP-8 FORMAT 10 NtR POP“8 FORMAT 
/ 

AM =10 


UuF F = 000 
* 2 0 

P 0 0 0 H* uSP 
RtAUE.R» -SR 
LUC, o 

CiMT » 0 

Char , t ' 

T i of. , 0 

T i M fc. X » *■' 

/ 

/IHt FOLLOWING TABLES GUIDE THt CONVERSION 


/ 


LX* 

*) i 

COPY 5 

LI 


po a; 

COPY 5 

LI 


8405 

COPY 5 

12 


8105 

05 

Lb 


812; 

CRLF 5 

LI 


814, 

CU p Y ; 

LI 


if * • 

* > 

SPACE 5 

L 8 


"0; 

COPY 5 

L2. 


"it 

COPY 5 

L 8 


"2; 

COPY 5 

L2 


"b; 

copy; 

L2 


•'4; 

COPY 5 

L2 


"8 5 

COPY 5 

L 2 


"0 5 

COPY 5 

L 2 


"/J 

COPY 5 

L2 


"85 

COPY 1 

L2 


"9 5 

copy; 

L2 


" C 5 

0 5 

L 4 


“15 

SPACE 5 

L2+400W 

L £ * 

815 5 

0 5 

Lb 


“15 

COPY 5 

L2 

Lb , 

812 5 

CRLF 5 

L.L 


wi. i 

CRLF 5 

Li+4000 

La , 

it • • 

> 9 

COMMr 5 

L 8 ,f 4O00 


-l; 

MCOMM5 

L c ♦ 4 0 0 0 

PmGE 





/ 
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/ 


/uQNVtRSI ON 

3 K0ORAM 

BEGINS HERE 

ST AMT » 

MO® 




MOP 




TLS 




p LS 




RFC 




JS R 




RAR 




SiJt. 


/H I "-SPEED PUNCH? 


Jrt® 

LOWL 



RAR 


/YES 


OLA 




1 A 3 

( MSP 



JC A 

3 U ML H 



SK 3 



LUWL, 

RAR 




SNL 

GLA 

/Hi-SPEc.0 REAJER? 


Jh 3 

LOWh 



TAD 

(MSP 

/YES 


JG A 

REAUEK 


LuNR , 

TAJ 

(LI 



JG A 

LUC 



J C A 

GimT 



T Aj 

C b J T F -1 



JC A 

A X1 


I N T > 

JMS 

I READER 



JG A 

CM Ah’ 



1 A J 

I LOC 



SPA 


/END OF LIST? 


JM 3 

EX 

/YES 


Gi A 




TAJ 

G HA k 



S <M A 

GLA 

/HAVE WE FOUND A MATCH? 


JMP 

EX 

/YES 


IS* 

log 



I S2 

log 



IS* 

log 



JMP 

I nT + 2 


/ 




tA | 

GLA 




13* 

uOC 



r aj 

I log 



SNA 


/IS THERE A SUBROUTINE.CALL? 


JMP 

. *3 

/NO 


JG A 

TEH 

/YES. CALL IT 


JHS 

I TEH 



IS* 

log 



TAD 

I LOG 



SPA 

GLA 

/SHALL WE get another char? 


JMP 

.+3 



JMS 

I READER 

/YES 


JG A 

CHAP 



TAJ 

I LOC 



A,MD 

(3777 



JC A 

log 



JMP 

lNT + 2 

/and CONTINUE search.,. 


JMP 

i 'M r + 2 



T E M, A 


3 





/ 

/SUBROUI 
cup i , 


/ 

SPACE, 


/ 

CuMhT, 


/ 

N C 0 M 'i i 


/ 

C«LF , 


C-xLF 1. 


C k L F 2 » 

/ 


iNtS FOR CONVERSION PRUGRAM 


J 


/por corr-.m char into 

FAD 

CHAR 

/STATEMENT BUFFER 

JCA 

I AX 1 


ISZ 

CNF 


JM 3 

I Cu 3 Y 


A 


/pin A BLANK SPACE INTO 

FAD 

( 240 

/siatememi buffer 

JC A 

I AX 1 


l S 5? 

CNF 


JO 3 

A 

1 SPACE 

/FOUND A COMMENT. PUT A ’ C ’ 

r ao 

( "C 

/INTO F HE BUFFER 

J C A 

I A X 1 


I SI 

CNF 


UM 3 

I COMMT 


J 


/ImUN-CUMMEN T» PUT A SPACE INTO 

JMS 

SPACE 

/BUFFER FIRST# THEN A »C* 

TAD 

( "C 


JCA 

I A X1 


I S l 

CNF 


JM 3 

I \ICOMM 


A 


/PUNCH CONTENTS OF BUFFER 

TAD 

FS JFF-I 

/THEN PJNCH A CR-LF 

JCA 

A XI 


r a o 

CNF 


CM A 



JCA 

CimT 


I S2 

CnT 

/END OF THE BUFFER? 

JM 3 

C R c F 2 

/no, continue punching 

FaD 

< 21> 


UMS 

I 3 JNCH 


I AD 

( 21 2 


JMS 

1 3 U N C H 


TAD 

CdJKF-1 


JCA 

A X 1 


JM 3 

I crlf 


1 AD 

I A X 1 

/NOW PUNCH I HE CHARACTER 

JMS 

I 3 UNCH 


JM 3 

CRi_F 1 
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/ 


/PaPER 

TAPE 

10 routines 

ARE HERE 


LoR, 

/) 


/LOW SPlEU PAPER 

TAPE READER 


A S ~ 





JM 3 

'• A I T L 




JC A 

1 11 HER 




r ad 

( -A 




JC A 

T 1 HEX 




X K d 





JM 3 

I Lb R 



N A 1 f U » 

IS2 

i r i her 




JM 3 

»bR*l 




lb? 

T i HEX 




Jrl 3 

-oR + 1 




JM 3 

i N 3 P 

/END QE TAPE . . . 


/ 





L^P , 

a . 


/LUW-SREEU PUNCH 

routine 


TSF 





JMP 

* - J 




T US 





CIA 





JM => 

I Lb 3 



/ 





hbR > 

<5 


/HI-SPEED READER 

ROUTINE 


R SF 





JMP 

-AIT 




JC A 

I TIMER 




RR d 

RPC 




JM 3 

! dSR 



W M I 1 , 

)C A 

1 ( lSR 




1 bX 

I TIMER 




JR 3 

dbR + 1 



fc.i\iPP , 

1 AJ 

LUJEF-1 




JC A 

A X1 




r Ac 

ON T 




r A 3 

(- 3. 




SPA 





JM 3 

-In DPI 




cm a 





JC A 

OUT 




l b / 

CNT 




J M 3 

, + S 



t r/P L , 

dLT 





JHP 

si Ak T + 2 




1 AJ 

t AX 1 




JM S 

1 3 UNCH 




JM 3 

. 



TIMER* 

I I M t 




/ 





ijP, 

J 


/Hi-SPtED PUNCH 

ROUTINE 


3 b 3 





JM 3 

, -1 




3 LS 





CLA 





JMP 

i AS 3 




P A c. 
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